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ALARMING IMAGES 





The technology that converts a video signa 
into a form that a computer can process is 
becoming very compact and reasonably 


affordable. The Austrian-made Print- 
Technik Video  Digitiser for the 
Commodore 64 lets us sample _ this 


technology for ourselves. 





A video digitiser takes a signal from any video 
source (usually a camera but perhaps a laser disc 
or video recorder) and converts it from the 
analogue voltages of the signal into a large set of 
numbers representing the image. These numbers 
can be stored in a computer’s memory, displayed 
in high-resolution graphics, manipulated by 
software, dumped to a printer and so on. 

There are hundreds of possible uses for video 
digitisers, ranging from serious applications, such 
as alarm systems, to amusing ideas such as 
‘computer pictures’ and badges of people. Print- 
Technik cites the example of a hairdresser who 
digitises images of his customers. By using a light 
pen and graphics package, he is able to show the 
customer a variety of hair styles to help choose a 
suitable coiffure. 

The Print-Technik unit, however, doesn’t look 
as if it is capable of all this. It’s a tiny black box that 
slots into the Commodore 64’s user port. A 
standard video socket on this connects to your 
video source — there are no other leads as the unit 
takes its power from the computer. The only other 
‘controls’ are three tiny adjustable screws, which 
alter the brightness, contrast and width of the 
digitised image. 

The unit is controlled through a software 
package supplied on disk. This is a_ well- 
constructed and functional program, but it does 
little to exploit the true possibilities of the unit. The 
program presents a friendly menu from which 
options are selected by moving a hand-shaped 
pointer with the cursor keys and pressing the 
return key. You can opt to digitise the signal, view 
the picture currently in memory, save it to disk or 
print it. A variety of printers are supported, 
including Commodore's 801 and 1525 units. A 
special printer program called “16 colors’ can be 
loaded to print pictures in up to 16 colours using a 
choice of the five leading colour dot-matrix 
printers. On-screen pictures are limited to four 
colours but the digitiser itself is capable of 
resolving up to 256 shades. 

Sensibly, the software is designed to be used in 
conjunction with other programs. A Lightpen 
option calls in Print-Technik’s own. light pen 
graphics software, although this isn’t supplied as 
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standard. More importantly, the image in memory 
can be saved to disk in a format suitable for two 
popular Commodore 64 art packages — the 
Koala-pad (see page 629) and Paintmagic. Artists 


and designers who use these programs will find the - 


video digitiser a valuable addition to their tool kit. 
All the picture SAVE and LOAD routines in the 
software use fast loaders to improve the 
performance of the 1541 disk drive. 

Actually digitising an image takes four seconds, 
which limits the potential applications for the unit 
and makes it harder to use. The lowest priced 
system you could set up would be based around a 
closed-circuit television camera similar to those 
used for surveillance purposes. These cameras 
have no internal monitor/viewfinder. It’s 
therefore almost mandatory to have a normal 
video monitor available so that the subject can be 
aligned and the camera focused visually by the 
operator before the camera is disconnected from 
the monitor and connected to the digitiser, ready 
to capture the image. So although the system 
works without an external monitor, it becomes a 
trial and error affair, lessening to a large extent, 
the quality of the results. 

The four seconds taken to produce an image 
also make it difficult to capture a moving subject. 





Video Techniques 

Print Technik’s video digitiser 
for the Commodore 64 takes 
video images from a video 
camera or recorder and digitises 
them, allowing them to be 
displayed on the screen in four 
shades, stored on disk or 
printed out. A particulary useful 
facility allows the digitised 
images to be saved on disk in 
formats used by other graphics 
packages such as the Koala- 
pad. The package includes a 
small cartridge that plugs into 
the user port and several good- 
quality programs on disk to 
support the hardware 
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Print Possibilities 


Quality pictures of people involve the subject 
sitting still for the entire four seconds, although 
some bizarre effects can be created by movement 
while the digitiser is working. There are two 
solutions to this problem. The ideal one is to use a 
video ‘frame grabber’, which will freeze the action 
electronically. The alternative is simply to take a 
photograph of the subject and digitise that! 
With the source properly adjusted, the only 
further adjustments that can be made to the 
captured image are by the three tiny screws in the 
digitiser unit. These arrive set at “optimum? levels, 
but can: be altered to cope with awkward or 
unusual conditions. Brightness and contrast are 
self-explanatory but have to be set by trial and 
error, since there is no immediate way to see the 
results. The third screw alters the width of the 
image, compressing or stretching the resulting 
picture. This can be used to give a picture its 


correct proportions on the computer’s graphics 
screen or to produce special effects. A thin face, 


for example, can be magically transformed at the 
turn of a screw. 

The digitised image is 256X256 pixels and can 
therefore only be partially seen on _ the 
Commodore 64’s 160X200 colour graphics 
screen. Print-Technik’s software lets you scan 
around the image using the cursor keys. The image 
is normally presented in four shades — white, light 
grey, dark grey and black — although the digitiser 
itself works with 256 shades. You can select any of 
four colours with the function keys using the 
supplied program. 

A number of alternative sample programs are 
also supplied, of which Alarm is the most 
sophisticated. This allows you to use your video 
camera in conjunction with the digitiser as an 
electronic night-watchman. The computer 
continually digitises the signal, effectively taking a 


snapshot of whatever the camera is focused on 


around every five seconds. 

When the new image is ready, it’s compared to 
the image recorded five seconds before and if it is 
different in more than a set number of places, the 
Commodore 64 dutifully sounds an alarm. This 
program worked remarkably well with the system 
being used to keep watch on a coffee cup. When 
the number of differences that trigger the alarm is 
low (around 200) the alarm will sound even if 
someone just casts a light shadow over the 
watched area. Obviously, if it was guarding some 
prized jewels, the difference limit would be set 
higher so that the alarm did not trigger at every 
patron’s shadow or when daylight faded. 

This program gives a very favourable 
impression of the sensitivity of Print-Technik’s 
unit. With a Commodore 64 wired to a real alarm 
system, a thief would have a one in five chance of 
remaining undetected — providing that the scene 
could be exactly restored within one second! 

Print-Technik also includes a simple slide show 
program that allows pictures saved in Koala-pad 
format to be shown in succession on the screen. 
Finally, there’s a routine that allows you to display 
Koala-pad format pictures within your own BASIC 
programs using a SYS call. 

Print-Technik’s  digitiser transforms the 
Commodore 64 into a tool for producing high- 
quality graphic images. The hardware is compact, 
produces surprisingly good results, and the 
supplied software is comprehensive although it 1s 
not as well finished as some programs. However, 
any practical application of the unit requires other 
equipment — a video camera, video monitor anda 
reasonable art program such as Paintmagic or the 
Koala-pad. The unit’s appeal is therefore limited 
to those who have a serious use for it as a tool for 
producing interesting and detailed graphics or 
using some of the more interactive applications 
described here. 








Digisted images can be dumped « = 
to a range of printers. aan -* 
Commodore’s MPS 801 and 7“... 3 
1525 printers each producea 23. 85, 
four-shade monochrome image (i. 8-83 
on paper but the picture canbe i. vgs 
printed in up to 16 colours with "+ 
a colour printer ae 
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Amstrad CPC range by developing a piece 


of machine code software to run_ the 
interface under Amstrad’s firmware 
interrupt system. We'll also be 
demonstrating the principles of buffering 
incoming data from an asynchronously 
linked device. 





In our initial MIDI project for the Commodore 64 
and BBC Micros, we developed a program that 
allowed a computer to act as a simple real-time 
recorder. Because this program (see page 1412) 
was simplified to demonstrate the principles of 
MIDI, incoming data was subject to a minimum 
amount of processing before storage. ‘This 
processing took the form of checking for system 
messages, discarding any encountered (see page 
1387), and calculating the timing bytes to be 
inserted between the MIDI bytes before storing 
the data in memory. Since the minimum time 
intervat between two consecutive MIDI bytes is 
320us, the processing loop for each incoming byte 
was kept much shorter than this critical time 
period, to ensure that all processing was done and 
that the program was in a state to receive the next 
byte before it arrived. 

A more useful program would have to carry out 
much more extensive processing of the incoming 
data. Features such as simultaneous record and 
playback, screen display and multi-channel 
overdubbing could be achieved if it were not for 
the 320us time limit on processing. Fortunately, 
there is a way, commonly implemented in 
computer systems, of ‘listening’ for mcoming 
bytes while simultaneously processing data that 
has already been received. 

To demonstrate the principles of writing a 
MIDI program that has long processing routines 
(longer than 320us) let’s look at a program to read 
incoming MIDI data and display it on the screen in 
real time. The data will be displayed in 
hexadecimal notation with each MIDI message 
starting on a new line. To do this we need to 
convert each MIDI byte received into two 
hexadecimal digits in ASCII code, send them to 
the screen followed by two space characters to 
separate them from the next byte and, if the byte is 
the final one in the MIDI message, send a carriage 
return. Operating system overheads, such as 
keyboard scanning, are significant in the context of 
a 320us data transmission rate and so it is likely 
that such a processing routine would take longer 
than the critical period between reception of each 
successive MIDI byte. 


BUFFERING INPUT DATA 

So that we don’t lose data as it comes in, we could 
use a regular interrupt to our main processing loop 
that scans the ACIA status register and transfers 
any newly received data from the ACIA receive 
data register to a buffer area in the computer's 
memory. The foreground program could then 
read data from the front of the buffer at a 
convenient moment without losing any data. 
Unfortunately, the interval between ‘polling’ 
interrupts would need to be less than 320s and, as 
such, constitutes an unacceptable programming 
overhead. 

The alternative to a periodic interrupt structure 
is to take advantage of the ACIA’s ability to 
generate its own interrupt signal every time the 
receive data register is full. Of course, we need to 
intercept the Amstrad’s interrupt service routine 
to distinguish ACIA interrupts from other sources 
of interrupt. If an ACIA interrupt was detected, 
wed have to transfer the contents of the receive 
data register. | 

The program shown here uses the Amstrad’s 
firmware routines, which are fully documented in 
the firmware manual and available from Amstrad 
(SOFT 158). The jump to the routine for handling 
the ACIA interrupt is patched into location 
&003B. The interrupt-handling routine itself 
communicates with the ‘foreground’ processing 
program by ‘kicking’ (see page 1598) an event, 
which is described by the event block located at the 
address labelled rxevbk. 
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Buffer 

| Pointers 

| Pointing The Way | 
The pointers to the front and 
end ofthe bufferqueue 
indicate the points at which 
data is to be removed or 

_ inserted. During operation, 

_thepointerswillmove 
progressively through the ~ 


buffer area as data is removed 


and new data is added. 
_ Whenever the buffer becomes 


empty (indicated by the READ ~ 
and WRITE indices having the 


same value) the indices are 
reset to the beginning of the 
buffer 


interfaced 

Our.redesigned MIDI board 
connects via a 50-way ribbon 
cable and edge connectors to 
the Amstrad’s expansion port. 
Using standard 5-pin DIN 
connectors, up to 16 MIDI- — 
equipped devices can be 
connected and controlled from 
computer software 


_ Write index _ 





_+=SOWiiteimdez 

_ gives offset to 

first free location — 
in the buffer — 





Read index 
gives offset to 
Read index in the buffer 

The buffer area is defined as 128 bytes of 
memory starting at address rxevbk +9. The routine 
first checks to see if there are any outstanding 
events waiting to be processed. If not, the buffer is 
empty and the read and write indices are 
initialised. The routine then goes on to check for 
receiver overrun — another byte arriving at the 
ACIA before the previous one had been read. The 
interrupt source must be cleared by the interrupt 
routine or it will repeat itself each time the handler 
routine is exited and interrupts re-enabled, 
causing the machine to ‘lock’. 

We can deactivate the ACIA’s interrupt signal 
by reading the ACIA data register. The routine 
then works out the address in the buffer area into 
which it will place the data byte received from the 
index stored in the event block at rxevbk +8. This 
index is simply the offset of the current end of the 
buffer area from its head. If the buffer is not full 
(signified by the index being less than 128), the 


data byte is written to the buffer and the event is 
‘kicked’. 
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first unread byte 


The ‘foreground’ program simply initialises the 
ACIA registers and the event block, after which it 


enters a loop that takes characters from the front of 


the buffer and processes them in the manner 
described previously. The address of the location 
representing the front of the buffer is found from 
the read index, at address rxevbk +7 within the 
event block. This index is again held as an offset 
from the start of the buffer. 

The program exits if any key on the computer 
keyboard is pressed, if the buffer becomes full or if 
the program misses any data bytes because of 
receiver Overrun. 


PROGRAM PROBLEMS 


The program given here is designed to 
demonstrate some of the principles of using non- 
periodic interrupts with the Amstrad operating 
system. It’s interesting to note some of the 
difficulties of using such a method. If you run the 
program and send data from a MIDI keyboard, 
you will find that the program will occasionally 
end because of an ACIA overrun — a second byte 
is received before the previous byte is cleared from 
the receive data register. This happens because of 
the way in which the OS handles interrupts. 

The Amstrad’s interrupt response uses the 
Z80’s alternate register temporarily set to store the 
state of the CPU registers whenever an interrupt 
occurs. Since only one set of alternate registers is 
available, multiple level interrupts are not 
supported. This in turn means that interrupts must 
be disabled throughout the interrupt service 
routine. Additionally, because the service routine 
includes several calls to support the firmware’s 
event structure, interrupts may be disabled for 
longer than the crucial 320us minimum period, 
possibly causing one or more bytes to be lost. 

A proper solution to this overrun problem 
would involve replacing the interrupt handling 
code with our own streamlined code. This would 
effectively ignore periodic interrupts and seriously 
limit the use we could make of the firmware’s 
system functions. 
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SNEAK 
PREVIEW 





discuss the 
implications of programming tree structures 
of differing types. We add some sorting 
routines to our program to enable it to 
handle all trees, regardless of their structure. 


In this instalment, we 





Using trees with irregular internal structures — 
for example, three branches from one node, two 
from another, four from a third, and so on — poses 
special problems. The main difficulty is knowing 
whether or not we have reached a terminal node. 

As you may recall, when we entered the object 
manipulation tree, we were able, because of its 
internal consistency, to number the nodes in a 
special order: choice nodes first; nodes that 
jumped out of the tree and then back in second; 
then terminal nodes that resulted in an action or 
message; and finally, terminal nodes that simply 
returned without any action being taken. When 
we sorted through the tree (in lines 5030-5090) we 
simply jumped to a routine as determined by the 
number of the node. 

Unfortunately, if you look at the trees on pages 
1624 and 1625 and attempt to apply this system to 
them, you will find it just isn’t possible. 

What’s needed is a foolproof system of 
sorting a tree that can be applied to any tree, 
regardless of its internal structure. 

We shall now solve this problem, and enter our 
plot tree into the program. Here’s howit’sdone .. . 

First, we need to initialise the variables for the 
plot. which have not already been used. Delete line 
190 of your program and add the following line: 


19@ DIM t(5,25,4) ,K(3,38) ,c(25) ,5(6) ,hCS 
>: z=6 


You will note that we have enlarged the t array 
to cope with our new trees, and have also added 
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some space into the c array for the new conditions 
that we shall be testing. The two arrays s and h 
record respectively whether or not a character has 
seen a corpse or handled the empty cat food tin. 
The variable z indicates whether a death has taken 
place, and will be set when appropriate to indicate 
the character number of the victim. 

We will program our tree as follows. The four 
bottom-dimension elements of the t array will be 
used to hold information about each node in the 
tree as indicated in the Node Type table. It will 
then be a simple matter, when sorting through the 
tree, to check the node type of each and jump to 
the appropriate routine. The node data is stored in 
Listing 1, which you should enter first. Then enter 
the following two lines to read this data into the t 


array: 
236 REM plot tree 
24@ FOR n=1 TO 22: FOR s=1 TG 4: READ t¢ 


2,n,s): NEXT s: READ at: NEXT n 


Note the blank spaces in lines 6270 and 6280. 
These are added to aid readability, so that you can 
see each group of node values at a glance. The 
blank spaces are read into the ‘garbage variable’ aS 
in line 240. | 

We now need a routine to ‘sort’ this tree, and 
jump to the relevant routines. this is held in lines 
5400 to 5550 (Listing 2) which you should now 
enter. The process is very straightforward. Line 
5470 checks the node type and adds one to it to 
generate a number between 1 and 7 which then 
results in a jump to one of the lines indicated. A 
simple choice node with only two branches (type 
0) will jump to 5480, where the value of the 
condition held in t(2, node number, 2) is used to 
decide whether to jump to the node held in t(2, 
node number, 3) or t(2, node number,4). 

The remaining node types each jump to their 
own lines and have the relevant parameters 
extracted from the t array. Note that node types 1 
and 2 are vectored via a jumpblock held in lines 
4500-4570. This is to avoid having to clutter up 
the tree-sorting routine with lots of different line 
numbers as we add more trees to the program. 

If you refer to the plot tree diagram, you will see 
that a number of new conditions need to be tested 
that we have not already stored in the c array. 
Enter the following line to add these in: 


24356 cOlDI=ABSC2=c): CCF =ABS(g=c): ctl 
D3 =ABS(z=8): cCL6=ABS(sCc)}=259) : cl i7i= 
ABSCFNc(z ,2)=FNctc,2)3: cCl@=ABSChtcI=zZ 
30): c€ 199 =ABSC1=2) 


Now enter Listings 3, 4, and 5. We are now 
almost ready to test this part of the program. All 
that’s required is first to alter the control loop in the 
line so that it reads as follows: 


34@ REM 

516 REM test program loop 

3286 REM 

536 GOSUB 7166: GOSUB 7156: GOSUB 2246: 
PRINT: PRINT: GOSUB 16860: GOTO 338 


Now delete lines 540 to 820, which we entered 
when testing our object manipulation tree, and 
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type in Listing 6. This listing checks the handle and 
move flags, initialises conditions, and calls each 10 | Tit : 
tree in turn in lines 1200 and 1210. You cannow | movi omroom . | 
run the program. At this stage, it is possible for | tofoom. [i 
characters to move about, manipulate objects, die, 
and even solve the mystery of the poisonous 
pasties. 

In the next instalment we print the first part of 
the complete listing, which will add the final 
touches and enable you to enter the full program. 
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| Life And Death Decision 
We show here the plot decision tree with each node given its . 
4 node number (in red) and the data entered for that node in the t a: | Pt looe o 08 
array : 
30, 15, 21, 4 
z 3 Y 
e Dead flag=0 §& 
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& Y Character Zz) 
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Probability theory is at the heart of the 
scientific approach to gambling, yet it is 
virtually ignored by the majority of punters. 
By understanding the bookies’ point of view, 
and relating all numbers to a common basis, 
a theorem such as Bayes’ Rule can be Blas! 
implemented on your microcomputer. ait 


Si 


Gambling is all about probability, 
gamblers have only the haziest underst 
probability ee lis 
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very good 
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aim of this instalment is 
background, together with an | 
illustrate some of the points disc 
The first thing the well-informed ¢ 
know is how to convert odds into prob 
back again, yet surprisingly few do. There are two 
kinds of odds: odds in favour (F) and odds against 
(A). Bookmakers normally quote odds against an 
event or outcome, such as a horse winning a race, 
except when t 














ae matters as far as 
varieties of odds to a 


Sa 


either formula below, where lower 
and f (for) are the two numbers 
bookmaker. 
F=f/a 
A=a/f 
Thus if the odds are given as 100 to 30 against, a= 
100 and f = 30. So the odds in favour (F) are 
30 /100, which equals 0.30, and the odds against 
are 100/30 = 3.3333. Now we have reduced the 
odds to acommon scale: thus 7 to 2 is 3.5 to 1, 100 









S comparisons easier. 
is to transform the odds into 


DIGITISED IMAGE FROM ‘HOW TO TAKE A CHANCE’ BY DARRELL HUFF 
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3.3333 to 1 comes out as a probability of 
1/4.3333 = 0.2308. Probability (P) is always 
expressed in terms of the event actually happening 
(such as a horse winning). If you want the 
probability of the event not occurring (Q), you can 
use the formula: 3 


Q=1—P 


Remember that P+Q=1 — the probability of an 
event happening plus the probability of that event 
not happening must total 1. Note also that long 
odds (against) are associated with unlikely events 
and therefore with small probabilities (in favour). 
Bookmakers’ odds are shorter than true odds; 

in other words the events concerned are made to 
seem more probable than they really are. The 
reasons for this become obvious when we look at 
the matter from the bookmaker’s viewpoint. The 
bookmaker has to make a living and cover his 
expenses. Accordingly, he creates what is called in 
the jargon an ‘over-round’ book. An imaginary 
horse-race illustrates this: 
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Runner Bets Taken Odds Liability 

ApricotJam £1,000 5-6 £1,833.33 

AtariSayonara £750 13-8 £1,968.73 

Small Acorn £200 8-1 £1,800.00 

Red Apple £50 33-1 £1,700.00 
£2,000 


In this case, £2,000 has been wagered, half of it on 
Apricot Jam, and the rest as indicated. The odds 
have been chosen to keep the bookmaker’s 
liability below the total staked, namely £2,000, 
whatever happens. Thus if Small Acorn wins, the 
punters who backed it to the tune of £200 will get 
their stakes returned, plus eight times the stakes 
(£1,600) as winnings — making £1,800 in all. This 
leaves £200 profit (10 per cent) for the bookie. Ina 
fair book, Apricot Jam would be even money and 
Small Acorn would start at 9 to 1. But who would 
want torun a fair book? 

One thing about our imaginary book, which is 
true to life, is that the outsiders are given relatively 
poor odds. This means that the bookie generally 


Qe 


does better when a long shot wins — so beware of 
backing ‘dark horses’. You are likely to be 
subsidising more popular choices. This is simply 
because punters are reluctant to go much below 
even money, so the bookies are constrained 1n the 
odds they can offer on hot favourites. They 
compensate by clawing back on the ‘no-hopers’. 

From time to time the bookies fail to cover their 
liabilities, either because they react too slowly to 
sudden swings in the betting, or because they open 
with unrealistic prices, though such events are rare. 
Don’t get the impression that you can beat the 
bookies, because you can’t. What you may be able 
to do is get some money from your fellow punters, 
with the bookie acting as middle-man and taking 
his cut. 

In the next instalment, we'll focus on a theorem 
designed to calculate the probability of an event 
occurring — Bayes’ Rule — which we'll apply to 
forecasting football results. We'll also be looking at 
some famous and infamous betting ‘systems’, as 
well as considering what recent developments in 
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artificial intelligence have to offer the computer- 
based punter. 
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Diving Into Pools 

Punters fill out pools coupons in 
many ways, but one of the most 
popular methods is the ‘8 from 
10 full perm’ where the punter 
puts crosses beside ten 
matches. When the results are 
known, the best eight selections 
are taken to maximise the 
number of pools point. Methods 
of selecting matches vary 
greatly but the chance of 
choosing eight score draws 
randomly is extremely remote. 


THE HOME COMPUTER ADVANCED COURSE 1651 











graphics-handling 
and formula- 
processing routines 
for our spreadsheet 
program, we are 
now ina position to 
add the routines 
that allow formulae 
and data to be 
entered in the sheet 
and the calculations 
to be made. 








CONFINED 
TO CELLS 


The code that handles formula input can be found 
between lines 2000 and 2050. This section of code 
used a BASIC INPUT command to get a formula from 
the user. This formula is, of course, in infix form 
and is initially stored in DS. The routine then goes 
on to store the formula in the array FS(). At this 
Stage the corresponding entry in the array that 
holds the reverse Polish version, PSS(), is cleared. 

The formulae for cells Al to A15 are held in 
FS(1) to F$(15); cells B1 to B15 are held in FS$(16) to 
FS(30) and so on. The correct element in FS() can 
be found at any stage from the spreadsheet cursor 
co-ordinates using the formula (Y-1)*15+X. 

The next routine, between lines 2100 and 2250, 
deals with entering data to a cell on the sheet. This 
subroutine is called from the main keyboard 
scanning routine at line 1170 if a numeric key is 
pressed. The routine prints a message to indicate 
that youre entering data into the current cell and 
then takes data a character at a time at line 2120. If 
the key pressed is one of the cursor keys or the 
Space bar, then the routine is terminated and the 
numeric data that has been gathered so far is 
placed in an array M(,). Lines 2149 to 2170 check 
to ensure that the data entered is valid and, if it is, 
adds the number to ES. One limitation of our 
spreadsheet program is that each cell can accept a 


maximum of only five characters; hence extra - 


input is checked for at line 2160 and a message is 
printed at line 2220. 


CALCULATING THE SHEET 

The calculate routine starts at line 2300 and acts as 
a control loop for the reverse Polish translation 
routines developed in the last two instalments 
before actually evaluating the formulae in the 
subroutine at line 2370. | 

The first routine works its way through the infix 
formulae array, FS(), and the corresponding 
reverse Polish array PSS(), translating any newly 
entered formulae into reverse Polish by calling the 
subroutine at line 4000. If there is an entry in the 
current element being tested then the evaluation 
routine is called. 

The evaluation routine makes use of the reverse 
Polish legality check at line 4700, which deposits 
the elements of the reverse Polish string it is 
working on into an array, GS(). These elements are 
either operators (such as + and —) or operands (A1, 
B5, 3 and so on). The evalution routine then works 
on the elements of the reverse Polish string 
according to the following conditions: 


@ Ifthe element is a constant (differentiated from a 
cell address by the fact that the left-hand character 
will be numeric rather than alphabetic) then the 
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value is put into the array C() and its position in C() 
is put onto a stack, ST(). 

@ If the element is a cell address, then its value is 
found from the array M(,) and put into C(). Its 
position in C() is placed on the stack. 

@ If the element is an operator then the operation 
is carried out on two (or in the case of unary minus, — 
one) previously stacked operands. The stack in 
fact holds the positions of the operands in C() and 
so the numbers that are taken from the stack are 
used to locate the correct elements in C(). The 
result is put into C() and the two operands are 
removed from the stack. Then the position of the 
result in C() is put onto the stack. 

After the complete string has been processed, 
the result of evaluating the string will be held in the 
last element of C() and can be transferred to the 
appropriate element of M(,), the array that holds 
all the cell values. 











Entry And Calculation Routines 


Commodore 64: 


1170 IF ASs="0" AND A*=<"F" THEN GOSUB 2 
100:REM ENTER NUMERIC DATA 

2000 REM *#®* INPUT FORMULA ROUTINE *#* 

2010 GOSUB 1950:REM MOVE CURSOR TO INPUT 
LINE 

2020 PRINT "NEW FORMULA: 

CUS 

2030 INPUT "NEW FORMULA: " ; Dt 

2040 LET FEC y-1)*#1S+* =DS:LEl Pst: ty-1> 

¥15+e)="" 

2050 GOSUB 1700:RETURN 

2100 REM #x*2#* ENTER DATA IN CELL **x*# 
2103 GOSUB 1750:REM MOVE CURSOR TO INPUT 
LINE 

2104 PRINT " 

2105 LET P=0:LET Et="" 

2110 IF At<>"" THEN 2150 

2120 GET AS:1F At="" THEN 2120 

2130 IF At$=CHR#E6( 29) OR AS=CHREC15S7) OR A 

$=CHR#(17) OR AS=CHRE6145) THEN 2250 
2135 IF G@t=" JHEN 2250 

2140 IF At="." THEN 2160 

2150 [fF @$.'°0"° GR AS SF” THEN 21 20 

2160 LE’ PerPti:IF PlS THEN 2220 

2170 LET ES=E¢+AS 

21980 PRINT CO#::FOR C=1 TO Vcvyti-Hid-1:P 

RINT COS: NEAT C 

2190 PRINT TABCH¢CX+1—-H1>-1) ;CHR#¢18);" 
3CuUS 

2200 PRINT TABCH¢CX+1—-H1i 2+4-LEN‘C ES) ) :CHRS 
(15) :E= 

S2lG GUTO 2ileo 

2220 GOSUB 1750:REM MOVE CURSOR [0 INPUT 
LINE 

e22o PRINT 7 ERROR -—- INPUT IGNORED" 

e2c0 GET L[f:1F [t= 9 [HER 2230 

2240 PRINT CO#;:FOR K=i TO 22:PRINT CD¢; 
:NEXT K 

2295 PRINT “ 


"2G071U0 2i eo 
2250 LET MCy,xX 2 =VALCES2 :GOSUB 1700:RETUR 


ENTERING -DATA 


i 
2300 REM ##2#22* CALCULATE THE SHEET *x*% 
HEX 

2305 GOSUB 1?730:REM MOVE CURSOR TO INPUT 
LINE 








SPREADSHEETS/ PROGRAMMING PROJECTS 


2306 PRINT " 
WAIT : 
PSi0 FOR J=1 [U0 [S:FOR [=1 710 is 

2315 QS=CHRE( J+ 64d. +MIDSCSTRSEC I) ,2,2):PRI 
he USC DS. Celie soe! 

2sc0 LET PS=PSt(( J-1)*15+1) 

2325 IF PS<?"" THEN GOSUB 4700:GOSUB 237 
D:G01 2a50 

Pasta LET CH=FSec J-1)*15+13 

2235 [FF Ce-—  FHER Saou 

2340 GOSUB 4000:GOSUB 2370:REM DECO 
DE FORMULA 

2350 FEXT I,¢2:GOSUB 1 700:RETURN 
2370 REM #*##2 EVALUATE FORMULG sx#*x== 
23°75 SP=O:FOR K=1 TO 2O:ST¢SP)=0:NEXT E 

2350 FOR K=1 TO CPR 

2370 LET T#=GF°K>) 

2400 IF T#="+" THEN 2500 

2405 [F [#="-" THEN 2510 


CALCULATING - PLEASE 


2910 [FF [$='* [HEN 2520 


2415 IF Té="/" THEN 2530 
2420 IF T#="*" THEN 2540 

2425 1F T$="&" THEN 2550 

2430 IF T$="" THEN 2450 

2432 TES=MIDS(T#,1,13 
2435 1F CTES}="0" AND TES<="9") OR TES=" 
." THEN CCKISVAL‘(T#):GOTO 2445 

2440 LET CCKI=M{(ASC(MIDS(TS$,1,193-64, VAL 
(MIDS(TS,2,292) 

2445 SP=SP+1:ST(SP)=K 

2450 NEXT K 

2460 LET Mé¢J,12=C¢K-1) :RETURN 

2500 CCKI=COSTCSP-1994+C(STCSPI):STCSPi=0 
:SP=SP-1:ST(SP)=k:G0TO 2450 

2510 CCKI=CCSTCSP-199-CCSTCSP)):ST(SP)=0 
:SP=SP-1:ST(SP)=K:GOTO 2450 

2520 CCKI=COST(SP-1)) *¥C(ST(SPI):STC(SPI=0 
:SP=SP-1:ST(SP)=K:GOTO 2450 

2530 CCKI=COSTCSP-1))/C{ST(SP)):8T(SP)=0 
:SP=SP-1:ST(SP)=K:GOTO 2450 

2540 CCK)=CCSTCSP-1))°CCSTCSP)): 
:SP=SP-1:ST(SP)=K:GOTO 2450 

2550 COKI=0-CCST(SP)):STCSPI=K:GOTO 2450 
3010 DIM H¢5),V¢8) , STC 20) ,ST#(20) ,ES¢ 20) 
,G%( 20) ,C<20> 


ST(SP)=0 








Sinclair Spectrum: 2230 LET 1=INKEve: IF 1#="" THE 2405 IF T$(1)="-" THEN GO TO 2510 
SOOU0 REM SXX SEER EE EEE HES ERE EEESES re 7 ao 2410 IF T$<l)="*" THEN GO 10 2520 
2001 REM * INPUT FORMULAE * e240 PRINT &T 18.0;" 2415 1F T#iio="“" THEN Gao 70 23530 
POOE REM SEXES HEREREESREEREESEE fe Go 2420 IF Té(io.=""" THEN GO 710 2540 
2010 PRINT AT 18,0;" ENTER S250 LET Mv SiSUAL (B£2: GO SLE 2425 IF Té¢1)="&" THEN GO TO 2550 
NEW FORMLILA " enn 2430 IF TS¢1l.="" THEN GO TO 2450 
2020 INPUT LINE DS st6n SETUBM 2432 LET US=T$(1) 

2Us0 LET Petty -1i815t%,1 10 LEN SIO REM BESS SE SESE E EES ES EH ER EES 2435 IF (US>="0" AND UtS<="") OR 
DSI=UE: LET Het Cyl el See 1 (OD Sai REM * CSLEULSTE THE SHEET +* Us="." THEN LET CCKI=VUAL (TS): 
=H S302 REM SSS REESE EER EES EEK ER EEE GO TO 2445 

euoU GO Sue feoG -ooe PRINT St 1s 0.” CeaLCuULa 24940 LET CCK)=MCCODE <TS¢ TO 13) 
2060 RETURN TING - PLEASE WIT & -oa.vel (fe 2 10»)? 

ZLQ0 REM SX SSS ESSSS SESE ERE S ESE ES Sel) Foe 2) = £ at Pe =i 7 = 2495 LET SP=SP+1: LET S*SP)I=K 


| 
RETURN 


2450 NEXT K 
2960 LET M¢J,I2=CCK-1): 


2i0i REM * ENTER Paige [N CELL = 
2102 REM S#eeE KEK ER SEXES ERE RER ES 


{ 
2315 PRINT AT 0,0;"CELL:":CHRs ¢ 
J+64):STRE (1);" * 


| 2105 PRINT AT 16.0; % ENTERI 2220 LET PS=HS(¢J-1)#15+1,1 To > 2000 LET C(K= C(S (Sr 1))+C¢S¢SP) 
& NG - DATA 4 2325 IF P$¢(i)<>" " THEN GO SUB 2: LE! StSPi=0: LEI Sr=sr-1: LET 
2110 LET P=0: LET Bf="" 2355: GO SUB 4700; GO SUB 2370: S°SP2=K: GO TO 2450 
2120 LET St=INKEY$: IF At="" THE GO TO 2350 2o.0 LET CCR o-C(S(SP-1))-Cc st oro 
NM GO TO 2120 2330 LET CR=FS(CJ-1)*"15+1,1 To ) >: LET S¢CSP)=0: LET SP=SF-1: LET 
2130 IF A$=CHRE €13) THEN Ga 5s 2335 IF C$t(1i.="" THEN GO TO 2350 eter Sh: GO TO 250 
UB 1450: GO TO 2250 2340 GO SUB 4000: GO SUR 22370 2520 LET CC KI=C(S¢(SP-1))*#C¢S¢SP) 


2140 IF S$="." THEN BO TO 2166 2350 NEXT I: NEXT J: Go SUB 1700 >): LET StCSP)=0: LET SP=SP-1: LET 

2150 IF Ae<"O" OR A$b"S" THEN G : RETURN SCSP2=K: GO TO 2450 

O TO 2120 2355 FOR 2=1 7O LEN PE: If pace 2550 LET CCR JISC CS¢SP-1 CCS Seo 

Si é0 LET FPeeii-. 16 PSS THEN Go =" " THEN GO TO 235? >: LET S¢SP3=0: LET SP=SP-1: LET 

TO 2220 2oo6 NEXT «€ SCSPo=K: GO TO 2450 

2170 LET BE=BSttat 2357 LET PS=PE$C1 TO 2-1): RETURN 23490 LET CCK 1=C¢(CS¢(¢SP-1)9°CcSc¢SP) 

2180 PRINT AT Vevy+1-V1),Hix+1-Hi 2370 REM SX¥EESRRRKERERKE REE AES 2% LE! Ss (sP 2-0: LE’ GPeSP-i: LET 

3 i 2cri1 REM * DECODE FORMULA x S*¢SP)=K: GO Ta 2450 

2190 PRINT AT Vcy+i-Vild,H¢x+1-H1 2372S REM FRXSXSKARASRE RRR EEE ecol LET CC R)=0-C°S(SP>): [ET st 

3+5-LEN BS:BS eo/a LET Sr=C: Dll Si eu SPi=K: GO TO 2450 

2210 GO TO 2126 2380 FOR kK=1 TO CP SOLO>DIM Hi 4):DIM Vi72:DIM S20) 
20 PRINT AT 18,0;" ERROR — 23970 LET TS=GS$¢(K) OIF S$i20,g2:DIM ES< 20,5):01M G 

INPLIT IGNORED a 2400 IF T$¢1)="+" THEN GO TO 2500 $C 20,97 :DIM Cezoo 


scorer a reece 
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Nest of IFs 

Most versions of BASIC allow 
nested IF statements, but 
FORTRAN goes one better by 
implementing the ELSEIF 
construct, which enables IF 
Statements to be nested to 
any depth over a number of 
program lines. The construct 
is terminated by an ENDIF 
Statement 





NEW_ TRICKS FOR 
AN OLD LANGUAGE 





Developed in the 1950s, FORTRAN lacks 
many of the structures and facilities we have 
become accustomed to in more modern 
programming languages. We look at a few 
techniques adopted by programmers to 
overcome FORTRAN’S limitations. 





There have been two major criticisms of FORTRAN 
as a modern programming language: its lack of 
proper control structures, which makes it difficult 
to implement programs in a way that can be easily 
‘understood and amended, and the very restricted 
facilities for character handling. Over the years, a 
number of ways of overcoming these deficiencies 
have been tried. 

A relatively recent approach is to use a 
‘preprocessor’ — a sort of higher level compiler. 


Programs written in an extended version of 


FORTRAN are then run through the preprocessor, 
which changes all the extra features into 
equivalents in standard rorTRAN. This gives the 

advantage of being able to write programs in a 
properly structured manner while maintaining a 
standard and hence portable version. The best 
known examples of FORTRAN preprocessors are 
WATFOR and RATFOR. 

When the FORTRAN 77 standard was issued, 
it incorporated new features in a similar way to the 
popular preprocessors. For this reason, there 
remains a fair degree of consistency in the 
language, although many compilers for micros are 
based on FORTRAN IV with extensions, rather than 
on true FORTRAN 77. 

The problem with providing proper control 
structures is that FORTRAN does not have a block 
structure like ALGOL, PASCAL or c, and there is no 
way of producing a compound statement by 
bracketing a number of statements together (with 
begin... .end, for example). The only way a block 
can be isolated is to extract it as a separate 
subroutine or to surround it with GOTOs. One new 
control structure has been introduced, though it 
doesn’t fit in very well with the rest of the language. 
This is an IF... THEN...ELSE. . .ENDIF: 


logical expression) THEN 


statements . 


statements 


he SF eee ee ee 


& 


ENDIF 
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The logical expressions are formed in exactly the 
same way as in standard FORTRAN and as is usual 
the ELSE part may be omitted. | 

A very useful form of this statement, which 
other languages would do well to copy, is a 
variation to cope with nested IFs: 


IF (logical expression) THEN 


statements 


ELSEIF 


statements 


ot eke ead 


¢ fe ¢- 8 -@ 6 0 @ 


ELSE 
ENDIF 


where there may be as many ELSEIFs as required. 


jetty 
eats 


Be 


$5, to 


date 








The second major enhancement has been the 
introduction of a character data type. Character 
strings are declared at the start of the program with 
the other declarations in one of the two forms: 


CHARACTER *9 CH1,CH2 
CHARACTER CH3"7,CH4*16 


Note that a maximum length for a string must be 
given as *n, where n is an integer. This may be 
applied either to the CHARACTER key word itself if 
all the strings are the same length, or individually 
to each named string. These declarations give two 
strings of length 9, one of length 7, and one of 
length 16. 

Arrays of strings may be declared in the normal 
way: 


CHARACTER*4 CHARS (50 


which declares an array of 50 four-character 
strings. String constants can be assigned to string 
variables as in: 


CH1ABCDEFGHI’ 


If the assigned string is too short, blanks will be 
appended; if it is too long, the excess will be 
truncated. 

Strings can be compared using the normal 
relational operators, such as .GT.,.LT. and so on, but 
there are also two new operators to carry out string 
functions. The substring operator gives access to 
any sequence of characters from the string, as in: 


CH1(3:5) 


Sa 
fs at 


MIKE CLOWES 


ah 


a 
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FORTRAN For Micros 
FORTAN compilers tend to be 
rather expensive and are 
normally available only for 
business machines — the 
package illustrated cost £130 
and runs on the Tandy 2000. 
Furthermore, limited memory 
space often makes micro 
implementation of FORTRAN 
difficult or even impossible. 
However, with the increasing 
availability of CP/M on home 
computers such as the 
Commodore 128, Amstrad CPC 
machines and others, many 
home users will find that there is 
a version of FORTRAN available 
for their machine. Amstrad 
users in particular are well 
catered for — Nevada FORTRAN 
costs only £39.95 including VAT 
from New Star Software Ltd, 45 
Plovers Mead, Wyatts Green, 
Essex, CM15 OPS 


This gives the substring of CH1 starting at the third 
_ character and ending at the fifth, so: 


CH1=ABCDEFGHI’ 
CH2=CH1 (3:5) 


would result in CH2 containing ‘CDE’, or strictly 
‘CDE ’. Note that the second figure given is the 
position of the final character and not the length, 
which would be more familiar to a BASIC 
programmer. 

The concatenation operator, //, is used to join 
strings together, as in: 


CHARACTER CH1*4,CH2*4, CH3*8 
CH1=ABCD' 

CH2='WXYZ’ 

CH3=CH1//CH2 


which would leave CH3 containing ‘ABCDWXYZ’. 
One subject we have yet to look at is the use of 
data files. Taking full advantage of FORTRAN 


requires a system with disk drives and most 


FORTRANS will include facilities for both sequential 
and direct access to files. The actual source or 
destination of an I/O operation is determined by 
the device identifier in the READ or WRITE 
statement. Some numbers, usually the lower ones, 
are reserved for standard I/O devices such as the 
keyboard, screen and printer; however, there will 
be a range of numbers available to the 
programmer. The OPEN statement is used to assign 


an identifier to a disk file. It takes the form: 


OPEN (UNIT=integer expression, FILE=file name, 
STATUS=status) 


The integer value for the UNIT is the number that 
should be used in subsequent READ or WRITE 
statements to access the file, and the file name 
would be according to the operating system 
conventions. The status can be one of several 
values — for example, OLD for an input file that is 
already in existence or NEW for an output file that 
is being created. 
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ee 


_ street, London WC2 


MS-FORTRAN courtesy of Computer World, St Giles High “ 


There are a number of optional clauses in the 
OPEN statement if something other than a 
straightforward sequential file is required. ‘These 
are: ACCESS=, to determine sequential or direct 
access; FORM=, to determine whether the file is 
formatted or unformatted; |OSTAT= which provides 
a means of error recovery if the proper file 
assignment cannot be made for some reason; and 
RECL=, to specify a record length. : 

A similar CLOSE statement might appear as: 


CLOSE(UNIT=integer expression,STATUS=status) 


This can be used to close an opened file but isn’t 
always necessary, since files will be automatically 
closed when the program terminates. 

In addition, there are a number of other file 
handling statements that we haven’t mentioned. 
Perhaps the most useful of these is INQUIRE, which 
enables the programmer to determine the current 
status and activity of any file. 

There are also a number of useful additions to 
the READ and WRITE statements, for use when 
doing I/O operations with files. For example: 


READ(7,10,REC=I)A,B,C 


would read the Ith record in a file that had been 
opened for direct access. As a further example: 


READ (7,11,END=1000)A,B,C 


would cause control to transfer to statement 
number 1000 when the end of file is encountered 
on a sequential file. 

Finally, we'll look at the ForRTRAN compilers 
themselves. The first thing to note is that they are 
usually fast and efficient in operation and produce 
fast, compact and efficient code, which is a major 
advantage particularly for real-time applications. 
This is perhaps as it should be for a language that 
has been around for so long and is fairly low level 
to begin with. 

Error detection, however, is not a strong point 
Of FORTRAN compilers. They can quite happily 
accept some horrendous errors that would never 
get past, say, a PASCAL compiler. Spaces, for 
example, are not significant in a FORTRAN 
statement, so a compiler will often remove all 
spaces from each line as a first task. One example 
is the DO statement: 


DO 100 |=1,100 


/ This sets up a loop to be repreated 100 times. A 


full stop in place of the comma, however, after 
removing the spaces, leaves you with: 


DOQ1001=1.100 


which is a perfectly legitimate assignment to a 
variable called DO100I! This simple error is 
rumoured to have led to an extremely expensive 
disaster in the US space program. ForTRAN has 
been the standard language for much defence 
work, and errors such as this one, occurring in 
(among other things) nuclear early warning 
systems, were major factors in the development of 
ADA as a replacement language. 
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DESIRABLE RESIDENTS 





spate 


In this instalment of our series on the 
Amstrad operating system, we look at the 
provision of resident system extensions, 
which allow new commands to be added to 
Locomotive Basic, and discuss foreground, 
background, and extension ROMs 





At the heart of the Amstrad operating system is 
the kernel. It is this section of the firmware that 
takes care of all the internal housekeeping of the 
computer, such as processing events and 
interrupts, and memory management. 

Most entries to the kernel are made via 
addresses between &BCC8 and &BD10, but the 
kernel is also provided with its own jumpblock, 
divided into an upper and lower section, lying at 
&B900-&B921 and &0000-&003B respectively. 
Unlike the main firmware jumpblock area, 
however, these locations should not be patched by 
the user. Some of the entries are of considerable 
use, and a brief description of the more interesting 
ones may be found in the Useful Kernel Addresses 
Table. 

One very powerful feature of the kernel is its 
ability to process external commands. These 
commands are held either in ROMs or in RAM. In 
the case where they are loaded into RAM, they are 
known as resident system extension (RSXs). An 
external command can be a routine of any size or 
function — for example, the commands provided 
with AMSDOS such as IDIR and IERA are routines 
that handle the disk files. Additionally, the whole 
of the BAsic language appears to the system as an 
RSX — try typing IBASIC and see what happens. 


INTRODUCING COMMANDS 


External commands may be set up in two ways. 
First, on power-up, where the commands are 
loaded in from ROM; second, from under 
program control, where the commands may be 
loaded from either ROM or RAM. In both cases, 
an external command is referenced by a command 
table, the format of which is detailed in the 
diagram. Command names can be up to 16 
characters long, with the last character having bit 7 
set. The characters can be any seven-bit code, but 
if the command is to be called from BAsic care 
should be taken to ensure that the characters used 
are accessible from the keyboard. 

If the commands are in the form of an RSX 
(that is to say loaded into RAM) then the actual 
process of ‘logging on’ — alerting the firmware to 
their presence — is done using the kernel routine 
KL__LOG__EXT. This routine is called via &BCD1, 
with the address of the command table in BC. HL 






must contain the address of a four-byte workspace 
area that can be used by the kernel, and both 
addresses must lie in the central 32 Kbytes of 
RAM. 

In cases where commands are stored in ROM, 
it is the ROM that is introduced to the firmware 
rather than the command table. The ROM must 
also conform to a particular format, as shown in 
the third diagram. ROMs may be designated as 
foreground, background, or extension ROMs. 
Foreground ROMs are used to contain programs 
that, when entered, take over control of the 
firmware. For example, the BAsic ROM is of this 
type, as would be other language ROMs, such as 
PASCAL. 

A background ROM contains external 
commands that may or may not be logged on by 
the foreground program. Finally, an extension 
ROM is used to contain code for either a 
foreground program or an external command 
routine that would not fit into the relevant ROM. 

Each ROM is addressed in the range 0-251, 
although different types are restricted in different 
ways. Foreground ROMs may occupy any 
address, provided that all addresses below the one | 
chosen are occupied by other ROMs of any type, 
since the kernel searches for ROMs by stepping up 
from address 0 until it finds the first empty space. 
Background ROMs should be fitted at addresses 
1-7 on the 464, and 1-15 on the 664 and 6128. 
Extension ROMs may occupy any address. 


Parameter Table Addressing 






































Integer expression 


= Integer expression 


eIinteger expression 
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On entry to a command 
routine called from BASIC, 
any parameters passed by the 
user are stored in a parameter 
block. The base address of the 
block is pointed to by IX and a 
A register holds the number of 
parameters passed. The 
diagram shows the structure 
of the block set up after 
executing COMMAND, 
5,24.6,a%,x,@bS,@ X%o 


CAROLINE CLAYTON 





External commands are 
referenced via a command 
table. A table may contain 
data for a number of different 

_commands grouped together 
and the format of such a table 
is shown here 





For example, if the system had ForTH as ROM 0 
(default) and a background ROM at ROM 1, then 
a second foreground ROM should be installed at 
ROM address 2 to ensure continuity. A second 
background ROM, however, could be introduced 
at any address between 3 and 7 (15 on the 664/ 
6128), and an extension could be installed at any 
address. 

All foreground ROMs are logged on when the 
machine is first powered up. Background ROMs 
may then be either initialised individually, using 
KL__INIT__BACK,, or all at once, using’ KL__ROM_ 
WALK. The BAsic ROM, incidentally, initialises all 
background ROMs when it is entered. 

Any extension ROM occupies the same area of 
memory as the on-board BAsic ROM (&C000 to 
&FFFF). Before any ROM can be entered, the BASIC 
ROM must first be disabled and the appropriate 
ROM itself enabled. The kernel provides several 
routines to switch both the upper and lower ROMs 
in and out, which relieves the programmer of the 
need to switch the relevant hardware directly. 


COMMAND LOCATION 

When the external commands have been logged 
on, they can be accessed directly from BAsIc (see 
below) or via the kernel using the KL_FIND_ 
COMMAND entry. This entry takes a command 
name and searches the RSXs and background 
ROMs for a match. If a command is found then 
the routine’s entry address is returned in HL, with 
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‘the C register containing the background ROM 


number (this can be ignored if the command 
routine lies in RAM). Ifno command is found, the 
routine returns with carry false. This routine is 
called at &BCD4, with HL containing the address of 
the command name, which should be terminated 
by a character with bit 7 set. 

External commands can be entered simply 
from Basic by preceding the command name with | 
a | symbol (shifted @). Basic also allows 
parameters to be passed to the routine by 
separating them with commas. For example: 


ICOMMAND,,2,3,x,y*3,@S, @X% 


The firmware then passes control to the command 
routine, with the number of parameters held in the 
A register and IX pointing to a table containing the 
parameter information. This table contains two 
bytes for each parameter, stored in the following 
format: 


Integer numbers/ 
expressions 
Real numbers 


16-bit signed integers 
forced to 16-bit 
unsigned integers 


The addresses of string and numeric variables may 
also be passed using the @ symbol, with integer 
variables leaving a two-byte address where they 
are stored, and string variables the address of the 
string descriptor block (see page 1558). 
Unfortunately it is not possible to determine 
whether the entry in the table is the address of a 
string descriptor or an absolute integer — it is up to 
the command routine to decide what type of 
parameter it is expecting. 

On entry to the command routine, IX points to 
the LSB of the dast parameter specified (in the 
example above, it would be the address of X%). 
Incrementing IX again therefore indexes the LSB 
of the second last parameter passed. The first 
diagram illustrates how the table would be 
indexed for the example given. 

It is often preferable to look initially at the first 
parameter specified and work through them as 
they were entered, rather than in the opposite 
order. The first listing provides a short utility that 





modifies IX to point to the LSB of the first 
parameter, rather than the last one. Note that in 











ROM Table 
The table shows the layout of 





this case, to look at the MSB of the first parameter, 
it is necessary to increment IX once, whereas to 
look at the MSB of the second parameter, IX 
should be decremented once. It should be 
decremented again to look at the LSB of the 
second parameter, and so on. 

RSX commands are relatively simple to use for 
the machine code programmer, and have the 
enormous advantage of  user-friendliness 


compared with the necessity, on most other 


machines, for using CALL or SYS commands. For 
this reason, the CALL command on Amstrad CPC 
computers is of minor significance, and the small 
amount of extra effort involved in implementing 
resident system extensions is well worthwhile. As 
an example, we include a listing for an RSX that 
allows the firmware routines mentioned in this 
series to be called direct from Basic, with the 
registers set up as required. 


Passing Control 


Parameter Pointer 

This short routine alters IX on entry to an external 
command routine to point to the first parameter 
specified 


jentry: A contains number of parameters 
IX contains address of table 


sexit: IX contains the address 

; of ist entry in table 

: DE corrupt, other registers 

: preserved 

§ 
oF Id e@,a icopy number to E 
1D dec e ‘no of parameters-l 
(B23 sla e ‘#2 
1400 ld d,0 rget offset in DE 
DDL add ix,de sadd it to start 


;1X now points to LSB of ist entry 
;in the parameter table 


Firmware Calling 

This listing provides an RSX that allows the firmware 
to be called directly from BASIC, with the registers 
Set up as desired. The Command syntax is as 
follows: 


IFIRMCALL, <entry address>, [,<A> 
— HL |,< BC |, DE] 


kl_log: equ #bcdi 


019020 = =logon: id be, conmands ;point to table 
219E2C Id hl,seratch jand scratchpad 
CODIBC call ki_log ;10g on command 

Co ret jand that’s it 

9520 comman: defw name ipoint to name 
CaAzz0 ip firmcall sentry point 
4649524) name: defm “FIRMCAL’ rset bit ? of... 

CC defb "L"+#80 ;:-last byte of name 
00 defi 0 


scratc: defs 4 
; IFIRMCALL, entry, a, hl, bc, de 


yreserve data area 
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DDES push ix 

El pop hl 

FEQ6 rp 6 ; up to 5 parameters 
Do ret nc ;too many, abort 
B? OF oa jany parameters? 
C8 ret 2 + no, abort 

47 Id bya ssave count in B 
93 inc hl ;get MSB of address 
7£ Ids a,th}) jfead it in 
37E462C Id (entry+i),a psave it 

2B dec hl ;LSB 

7E Id a,thl) 

S°E52C Id fentry),a 

2B dec hl ‘MSB of AF 

28 dec hl ;LSB of AF 

05 dec b ‘got enough? 
2822 Je oz,tall syes, do the call 
7E Id a,thl) selse read ina 
05 dec b senough? 

281E Je oz tall syes, do the call 
op dec hl sMSB of HL 

a6 Id d,thl) 

2B dec hl 

JE Id e,thl) 

EB ex de,hl yget into HL 

03 dec b ;enough? 

2814 i z,call syes do the call 
EB ex de,hl ;get pointer back 
2B dec hi iMSB of BC 

FO push af ‘save A for now 
7E Id a,¢hl) 

2B dec hl ‘LSB of BC 

4E le c,th) 

05 dec b ;done enough 

4? Id bya ;set up BC anyway 
EB ex  de,hl sand HL 

2003 Jf m2 ,miss ;get the last one 
Fi pop af jrestore the stack 
1808 ye ocall sand do the call 
Fi miss: pop af 

EB ex de,hl sget table back 
D5 push de isave hl value 

2B dec hl iMSB of DE 

54 Id d,¢hl) 

2B dec hl iLSB of DE 

oE Ide, (hl) 

E} pop hl ‘get HL back 

C3 call: defb #c3 ;jump instruction 
0000 entry: defw Q ;jump adress 


bytes used by the operating 
system to recognise and ‘log 
on’ individual expansion 
ROMs. Subsequent 
interrogation of the operating 
system will enable the return 
of addresses for the 
command routines defined in 
the ROM’s external command 



















add ix,de 


oF firmca: Id e@,a ;copy number to E 
1D dec @ sno of parameters-] 
CB23 sla e #2 

1600 © Id dO rget offset in DE 
DDL? 


;the jump address is patched 
sinto the routine 
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Piled High 

Stack structures, which are 
widely used in computer 
systems, form temporary 
Storage spaces that are easy to 
manipulate. As with a pile of 
children’s building blocks, 
additions to and deletions from 
a Stack can only be made from 
the top. The ability of stack 
structures to maintain the order 
of stored data makes them ideal 
for holding return addresses for 
Subroutine calls 


SOURCE CODE 


These are the lines of program which are fed into a 
computer and then compiled or assembled into 
object code — machine code. Source codemay be 
written in a high-level language, such as PASCAL or 
COBOL, which will then be checked by the 
computer for syntax errors. Once this has been 
performed, and there are no errors halting the 
compilation, the computer can then translate the 
source code into its object code equivalent. The 
mnemonics and labels of an assembly language 
also constitute source code, which can be 
assembled into machine code. 


SPLIT SCREEN 


A split screen is used to describe a vou display 
that’s divided into two or more parts. This enables 
data to be entered on one part of the screen while 
other data or prompts are displayed on another. 


Scrolling and other functions can take place on 


one part of the split screen independently of the 
other half, and it’s often possible to move between 
the two. For example, when editing a long 
document, it may be necessary to refer to an 
earlier part of the text and then go back to edit the 
sections contained there. A technique that’s 
becoming increasingly popular in computer 
games (adventures in particular) is the process of 
split screen graphics. In some adventures, you can 


‘see’ the scene within the game and enter your 


instructions in the bottom half of the screen. 


SPOOL 


This term describes a process by which data that is 
intended to be sent to a peripheral (usually a 
printer or external storage system) is queued 
beforehand. The reason for this is that computers 
usually send data to a peripheral much faster than 
it can be received. Thus in order for the main 
processing part of the computer not to be kept 
waiting while the peripheral processes the data, 
the data is transferred, or spooled, to a buffer area 
where it awaits transfer, leaving the computer to 
get on with processing. Often the spooling process 
will have its own _ processing capability 
independent of the central processing unit, which 
can detect signals from the peripheral indicating 
that it is ready to receive the next batch of data. 
The spooling unit will then send another load of 
data to the peripheral. (Compare ‘buffer’, see page 
208 


SQUARE WAVE 


A square waveis a series of pulses (see page 1392) 
linked together to form a continuous stream. This 
stream of pulses can be regarded as a series of 
binary ones and zeros, making the square wave a 
valuable system of transmitting data between 
computers and peripherals. 


STACK 


The stack is an area of memory associated with the 
CPU of a microcomputer, which can be used as a 
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temporary storage area for the contents of the 
various registers or other data values. Processors 
differ as to the locations of the stack in memory 
and the amount of data it can hold. For example, 
the 6502 processor can only hold 256 bytes of 
information, which is fixed on page one; the Z80, 
on the other hand, can have a stack length of up to 
64 Kbytes, which can be anywhere in memory. 
Despite these differences, the operation of the 
stack is basically the same for all processors. 

Each processor has instructions for the 
manipulation of the stack, which can either place 
items of data onto the stack or take them off. The 
stack works on a system known as Liro (Last in 
First Out; see page 948). This means that the last 
item placed in the stack area will be the one that 
will be obtained by the next POP (or PULL) — an 
instruction that retrieves an item of data from the 
stack. 

It’s important to bear this in mind when placing 
or removing instructions from the stack, since it’s 
impossible to access information lower down the 
stack without first removing the data ‘above’ it. 
This is because the processor has a special register, 
known as the ‘stack pointer’, which tells the 
processor which instruction is to be removed from 
the stack next. The stack pointer is changed 
automatically when information is placed or 
retrieved from the stack, but it’s also possible for a 
programmer to alter the address contained in the 
stack pointer. 

Although the use of the stack is mostly confined 
to machine code programmers, some higher level 
languages, most notably ForTH, make extensive 
use of stack manipulation. 
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